(define (list-of-values-lr exps env) 
  (if (no-operands? exps) 
    '() 
    (let ((first (eval (first-operand exps) env))) 
      (let ((rest (list-of-values-lr (rest-operands exps) env))) 
        (cons first rest))))) 
